home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
DOS.SWG
/
0044_Rebooting.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-02-03
|
1KB
|
35 lines
{
From: STEVE ROGERS
Subj: Rebooting
Here's some code to make both warmboot and coldboot com files. If you
want to make them TP procs, just enter them as inline code.
------------------------------------------------------------------------
{Makes two COM files: WARMBOOT & COLDBOOT }
const
Warm_Boot : array[1..17] of byte = { inline code for warm boot }
($BB,$00,$01,$B8,$40,$00,
$8E,$D8,$89,$1E,$72,$00,
$EA,$00,$00,$FF,$FF);
Cold_Boot : array[1..17] of byte = { inline code for cold boot }
($BB,$38,$12,$B8,$40,$00,
$8E,$D8,$89,$1E,$72,$00,
$EA,$00,$00,$FF,$FF);
var
f : file;
begin
assign(f,'warmboot.com');
rewrite(f,1);
blockwrite(f,warm_boot,17);
close(f);
assign(f,'coldboot.com');
rewrite(f,1);
blockwrite(f,cold_boot,17);
close(f);
end.